Imports System.ComponentModel
Imports System.Web.UI

<ToolboxData("<{0}:FourthSample runat=server></{0}:FourthSample>")> Public Class FourthSample
    Inherits System.Web.UI.WebControls.WebParts.WebPart

    Private strSubtitle As String
    Private _Title As String = "Sample WebPart"

    Public Sub New()
        strSubtitle = "As of " & Now.ToString
        Me.TitleIconImageUrl = "book.gif"
    End Sub

    Private Sub BookDisplay_Init(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles Me.Init
        MyBase.HelpUrl = "http://www.phvis.com/Booksite.htm"
    End Sub
    Public Overrides Property Title() As String
        Get
            Return MyBase.Title
        End Get
        Set(ByVal value As String)
            MyBase.Title = _Title
        End Set
    End Property

    Public Overrides ReadOnly Property Subtitle() As String
        Get
            Return strSubtitle
        End Get
    End Property
    Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
        MyBase.Render(writer)
    End Sub
End Class
